inherited frmErrors: TfrmErrors
  Left = 442
  Top = 215
  Caption = #1057#1087#1080#1089#1086#1082' '#1086#1096#1080#1073#1086#1082' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1103
  Constraints.MinHeight = 200
  Constraints.MinWidth = 300
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    object lblErrorCount: TLabel [0]
      Left = 52
      Top = 8
      Width = 429
      Height = 13
      AutoSize = False
    end
    inherited BitBtn1: TBitBtn
      Visible = False
    end
  end
  inherited ToolBar1: TToolBar
    inherited ToolButton2: TToolButton
      Visible = False
    end
  end
  object dbg_ErrorList: TDBGridEh [2]
    Left = 0
    Top = 29
    Width = 792
    Height = 438
    Align = alClient
    DataSource = dsc_ErrorList
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghEnterAsTab, dghDblClickOptimizeColWidth, dghDialogFind]
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    UseMultiTitle = True
    Columns = <
      item
        EditButtons = <>
        FieldName = 'ABONENT_ID'
        Footers = <>
        Width = 78
      end
      item
        EditButtons = <>
        FieldName = 'ADDRESS'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'DOCDATE'
        Footers = <>
        Width = 90
      end
      item
        EditButtons = <>
        FieldName = 'CREATEDATE'
        Footers = <>
        Width = 89
      end
      item
        EditButtons = <>
        FieldName = 'MSG'
        Footers = <>
        Width = 350
      end>
  end
  inherited ActionList1: TActionList
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
  end
  object ds_ErrorList: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    a.address,'
      '    ABONENT_ID,'
      '    DOCDATE,'
      '    CREATEDATE,'
      '    MSG'
      'FROM'
      '    TMP_CHARGE_ERROR t'
      'join v_abons a on a.id = t.abonent_id'
      'order by 1')
    Transaction = tr_Local
    Database = MAINDM.pMainDatabase
    Left = 196
    Top = 240
    oFetchAll = True
    object ds_ErrorListABONENT_ID: TFIBIntegerField
      DisplayLabel = #1048#1044' '#1072#1073#1086#1085#1077#1085#1090#1072
      FieldName = 'ABONENT_ID'
    end
    object ds_ErrorListADDRESS: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089' '#1072#1073#1086#1085#1077#1085#1090#1072
      DisplayWidth = 30
      FieldName = 'ADDRESS'
      Size = 245
      EmptyStrToNull = True
    end
    object ds_ErrorListDOCDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
      FieldName = 'DOCDATE'
    end
    object ds_ErrorListCREATEDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
      FieldName = 'CREATEDATE'
    end
    object ds_ErrorListMSG: TFIBStringField
      DisplayLabel = #1050#1086#1076' '#1086#1096#1080#1073#1082#1080
      FieldName = 'MSG'
      Size = 255
      EmptyStrToNull = True
    end
  end
  object tr_Local: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 160
    Top = 240
  end
  object dsc_ErrorList: TDataSource
    DataSet = ds_ErrorList
    Left = 228
    Top = 240
  end
  object XLSExportFile: TXLSExportFile
    Left = 276
    Top = 140
  end
  object XLSExportDBGridEh: TXLSExportDBGridEh
    XLSExportFile = XLSExportFile
    DBGridEh = dbg_ErrorList
    Options = []
    Left = 308
    Top = 140
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'xls'
    Filter = #1060#1072#1081#1083#1099' Excel|*.xls'
    Left = 244
    Top = 140
  end
end
